From 54135a6165071232d98fb1726ec684df2f83b277 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Sat, 7 Dec 2002 20:47:33 +0000 Subject: [PATCH] (custom-face-edit-fix-value): Change :reverse-video to :inverse-video. --- lisp/cus-edit.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 67d25b2ea7a..c457d149d77 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -2553,7 +2553,8 @@ to switch between two values." custom-face-attributes)) (defun custom-face-edit-fix-value (widget value) - "Ignoring WIDGET, convert :bold and :italic in VALUE to new form." + "Ignoring WIDGET, convert :bold and :italic in VALUE to new form. +Also change :reverse-video to :inverse-video." (if (listp value) (let (result) (while value @@ -2565,6 +2566,9 @@ to switch between two values." ((eq key :bold) (push :weight result) (push (if val 'bold 'normal) result)) + ((eq key :reverse-video) + (push :inverse-video result) + (push val result)) (t (push key result) (push val result)))) -- 2.30.2